// Do file that estimates model with binary treatment/instrument and fully saturated model
// Table A5
// Last changed: 2020-04-21 (KOL)
  
  clear all
  set more off 
  set matsize 10000
  
  capture log close
  local output "C:\Userdata\Shared\Dofiles\DoAnalysis\PlacementCandidacy"
  log using "`output'\Output\TabA5.log", replace text
  
  use "E:\ProjData\PlacementCandidacy\utp-DataMainSample.dta", clear
   
  listwise Alder Kvinna Gift_InvAr Barn0_15_InvAr UtbAr_InvAr logpEnklavInvAr Nominerad Vald  InvAlder  InvAr TidI InvAlder logpEnklavVuxenInvAr
  
  local sample "inrange(InvAr, 1987, 1991) & inrange(InvAlder, 18, 55) & inrange(Ar, 1991, 2014) & FlyktInv == 1 & Rostratt == 1"
  local controls1 "InvAr IFAUkod Ar FodelseAr"
  local controls2 "Kvinna Gift_InvAr UtbAr_InvAr Barn0_15_InvAr"
  local controls3 "LoneInk UtbAr Sysselsatt" 
  local controls4 "effectiveparties disproportionality leftshare migrantshare invHerfindahl mUtb_infodda"

  egen gID1 = group(`controls1')
  egen gID2 = group(`controls1' `controls2')

 //#####################################Column 1 of Table A5###########################// 
  
 reghdfe Nominerad (logpEnklavVuxen = logpEnklavVuxenInvAr) if `sample', absorb(InKommun gID1) cluster(InKommun) stages(first) old 
 eststo c1

//#####################################Column 2 of Table A5###########################// 
  
 reghdfe Nominerad (logpEnklavVuxen = logpEnklavInvAr) if `sample', absorb(InKommun gID2) cluster(InKommun) stages(first) old 
 eststo c2
 
 
//#####################################Column 3 of Table A5###########################// 
  
 reghdfe Nominerad (Enklav = EnklavInvAr) if `sample', absorb(InKommun `controls1') cluster(InKommun) stages(first) old 
 eststo c3 
  
//#####################################Column 4 of Table A5###########################//   
 reghdfe Nominerad `controls2' (Enklav = EnklavInvAr) if `sample', absorb(InKommun `controls1') cluster(InKommun) stages(first) old 
 eststo c4
 
//#####################################Column 5 of Table A5###########################// 
  
 reghdfe Nominerad (Enklav = EnklavInvAr) if `sample', absorb(InKommun gID1) cluster(InKommun) stages(first) old 
 eststo c5

//#####################################Column 6 of Table A5###########################// 
  
 reghdfe Nominerad (Enklav = EnklavInvAr) if `sample', absorb(InKommun gID2) cluster(InKommun) stages(first) old 
 eststo c6
 
 esttab c1 c2 c3 c4 c5 c6 using "`output'\Output\TableA5.rtf", keep(Enklav logpEnklavVuxen) ///
		 replace star(* .1 ** .05 *** .01) b(3) se(3)
		 
		 
log close
